﻿''' <summary>
''' 标题类
''' </summary>
''' <remarks></remarks>
<Serializable()> Public Class LocaleWeatherTitleData
    Implements ICloneable

    Private m_strTop As String = "*% ONSITE                                                                          " & vbCrLf & "*      DATA      ONSITE.MET                                                        " & vbCrLf & "*      QAOUT     EX02_OS.OQA                                                       " & vbCrLf & "*      XDATES    "
    Private m_strMiddleDate As String = vbCrLf & "*@     LOCATION  99999 "
    Private m_strMiddlePlace As String = vbCrLf & "*@     LOCATION  99999 "
    Private m_strBottomOne As String = vbCrLf & "*$     READ 1 OSDY OSMO OSYR OSHR HT01 SA01 SW01 TT01 WD01 WS01                    " & vbCrLf & "*$     READ 2                     HT02 SA02 SW02 TT02 WD02 WS02                    " & vbCrLf & "*$     READ 3                     HT03 SA03 SW03 TT03 WD03 WS03                    " & vbCrLf & "*$     FORMAT 1 (4(I2,1X),4X,F5.1,1X,F5.1,1X,F7.3,1X,F6.2,1X,F7.2,1X,F7.2)         " & vbCrLf & "*$     FORMAT 2 (16X,        F5.1,1X,F5.1,1X,F7.3,1X,F6.2,1X,F7.2,1X,F7.2)         " & vbCrLf & "*$     FORMAT 3 (16X,        F5.1,1X,F5.1,1X,F7.3,1X,F6.2,1X,F7.2,1X,F7.2)         "
    Private m_strBottomTwo As String = vbCrLf & "*$     RANGE TT -30 < 40 -99                                                       " & vbCrLf & "*$     RANGE SA 0 <= 95  -99                                                       " & vbCrLf & "*$     RANGE WS 0 < 50   -999                                                      " & vbCrLf & "*$     RANGE WD 0 <= 360 -999                                                      " & vbCrLf & "*$     THRESHOLD  0.3                                                              " & vbCrLf & "*  OS     ON-SITE QUALITY ASSESSMENT " & vbCrLf & "*** EOH: END OF ON-SITE QA HEADERS" & vbCrLf

    ''' <summary>
    ''' 开始日期 (String)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_startTime As String
    ''' <summary>
    ''' 结束日期 (String)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_endTime As String
    ''' <summary>
    ''' 纬度 (String)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_latitude As String
    ''' <summary>
    ''' 经度 (String)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_longitude As String

    ''' <summary>
    ''' 全部的标题字符串 (String)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_sumString As String
    ''' <summary>
    ''' 上面的字符串 (String)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_top As String
    ''' <summary>
    ''' 底下的字符串 (String)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_bottom As String



    ''' <summary>
    ''' 气象站编号 (String)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_weatherID As String
    ''' <summary>
    ''' 气象站名称 (String)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_weatherName As String




    ''' <summary>
    ''' 最上面的字符串
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property TitleTop() As String
        Get
            Return Me.m_strTop
        End Get
        Set(ByVal value As String)
            Me.m_strTop = value
        End Set
    End Property
    ''' <summary>
    ''' 中间的日期字符
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property TitleMiddleDate() As String
        Get
            Return Me.m_strMiddleDate
        End Get
        Set(ByVal value As String)
            Me.m_strMiddleDate = value
        End Set
    End Property
    ''' <summary>
    ''' 中间的经纬度字符
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property TitleMiddlePlace() As String
        Get
            Return Me.m_strMiddlePlace
        End Get
        Set(ByVal value As String)
            Me.m_strMiddlePlace = value
        End Set
    End Property
    ''' <summary>
    ''' 下面的 第一串字符
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property TitleBottomOne() As String
        Get
            Return Me.m_strBottomOne
        End Get
        Set(ByVal value As String)
            Me.m_strBottomOne = value
        End Set
    End Property
    ''' <summary>
    ''' 下面的 第二串字符
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property TitleBottomTwo() As String
        Get
            Return m_strBottomTwo
        End Get
        Set(ByVal value As String)
            Me.m_strBottomTwo = value
        End Set
    End Property


    ''' <summary>
    ''' 开始日期 (String)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property StartTime() As String
        Get
            Return Me.m_startTime
        End Get
        Set(ByVal value As String)
            Me.m_startTime = value
        End Set
    End Property
    ''' <summary>
    ''' 结束日期 (String)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property EndTime() As String
        Get
            Return Me.m_endTime
        End Get
        Set(ByVal value As String)
            Me.m_endTime = value
        End Set
    End Property
    ''' <summary>
    ''' 纬度 (String)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Latitude() As String
        Get
            Return Me.m_latitude
        End Get
        Set(ByVal value As String)
            Me.m_latitude = value
        End Set
    End Property
    ''' <summary>
    '''  经度 (String)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Longitude() As String
        Get
            Return Me.m_longitude
        End Get
        Set(ByVal value As String)
            Me.m_longitude = value
        End Set
    End Property







   



    ''' <summary>
    ''' 气象站编号 (String)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property WeatherID() As String
        Get
            Return Me.m_weatherID
        End Get
        Set(ByVal value As String)
            Me.m_weatherID = value
        End Set
    End Property
    ''' <summary>
    ''' 气象站名称 (String)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property WeatherName() As String
        Get
            Return Me.m_weatherName
        End Get
        Set(ByVal value As String)
            Me.m_weatherName = value
        End Set
    End Property


    ''' <summary>
    ''' 上面的字符串 (String)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Top() As String
        Get
            Return Me.m_top
        End Get
        Set(ByVal value As String)
            Me.m_top = value
        End Set
    End Property
    ''' <summary>
    ''' 底下的字符串 (String)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Bottom() As String
        Get
            Return Me.m_bottom
        End Get
        Set(ByVal value As String)
            Me.m_bottom = value
        End Set
    End Property
    ''' <summary>
    ''' 全部的标题字符串 (String)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property SumString() As String
        Get
            Return Me.m_sumString
        End Get
        Set(ByVal value As String)
            Me.m_sumString = value
        End Set
    End Property


    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim objCopy As New LocaleWeatherTitleData
        objCopy.m_strTop = Me.m_strTop
        objCopy.m_strMiddleDate = Me.m_strMiddleDate
        objCopy.m_strMiddlePlace = Me.m_strMiddlePlace
        objCopy.m_strBottomOne = Me.m_strBottomOne
        objCopy.m_strBottomTwo = Me.m_strBottomTwo
        objCopy.m_startTime = Me.m_startTime
        objCopy.m_endTime = Me.m_endTime
        objCopy.m_latitude = Me.m_latitude
        objCopy.m_longitude = Me.m_longitude
        objCopy.m_sumString = Me.m_sumString
        objCopy.m_top = Me.m_top
        objCopy.m_bottom = Me.m_bottom
        objCopy.m_weatherID = Me.m_weatherID
        objCopy.m_weatherName = Me.m_weatherName
        Return objCopy
    End Function
End Class
